home *** CD-ROM | disk | FTP | other *** search
/ GFX Sensations 1 / Graphic Sensations - Volume 1.iso / tools / amiga / converte / make3d.lha / Make3DpicC.ifx < prev    next >
Encoding:
Text File  |  1994-07-23  |  1000 b   |  69 lines
  1. /*
  2.  * Make3DpicC v1.3
  3.  * Arexx Macro for use with ImageFX
  4.  *
  5.  * Makes a color 3D picture for use with Red & Blue glasses.
  6.  * Must be rendered in Imagine with Stereo3D turned on.
  7.  * (or in any program that generates pictures in X-Specs Format)
  8.  *
  9.  * For multiple image processing use IMP and put this script in Proc.
  10.  *
  11.  * Written By Torgeir Holm ©1994
  12.  *
  13.  */
  14.  
  15. OPTIONS RESULTS
  16.  
  17. DrawMode Normal
  18. Blend 100
  19. EdgeMode Normal 0
  20. FillMode Solid 0 0 0 SMOOTH
  21.  
  22. SaveUndo ; Undo Off
  23.  
  24. Redraw Off
  25.  
  26. GetMain
  27. PARSE VAR result name width height depth
  28.  
  29. /* Separate the Left and Right Image.*/
  30.  
  31. w = width
  32. h = (height/2)
  33. a = (height/2+1)
  34. Crop 0 0 w h TOSWAP
  35. Crop 0 a w h
  36.  
  37.  
  38. /* Make Red & Cyan buffers*/
  39.  
  40. Negative
  41. ActiveColor 4
  42. MenuPalette
  43. SetPalette '-1' 255 0 0
  44. MenuToolbox
  45. Drawmode Add
  46. FloodFill 1 1 255
  47. Negative
  48.  
  49. Swap
  50.  
  51. Negative
  52. ActiveColor 5
  53. MenuPalette
  54. SetPalette '-1' 0 255 255
  55. MenuToolbox
  56. FloodFill 1 1 255
  57. Negative
  58.  
  59. /* Combine the Images to make 3D image */
  60.  
  61. Add
  62.  
  63. KillSwap
  64. Drawmode Normal
  65.  
  66. Undo On ; Redraw On
  67.  
  68. EXIT
  69.